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int fund (unsigned a, unsigned b, unsigned c) 

{ 

return a + b c « 3; 

) 

int func2 (int a, int b, int c) 

{ 

return (a b) & c; 

^ FIG.^3A 



module funcl(result_funcl, result_func2, param_funcl_a, param_funcl_b. 
param_funcl_c, param_func2_a, param_func2_b. param_func2_c); 

output [15:0] result_funcl , result_func2; 

input [15:0] param_funcl_a, param_funcl_b. param_funcl_c; 

input [15:0] param_func2„a, param_func2_b» parani_func2_c; 

wire [15:0] result_funcl = 

((param_funcl_a + param_funcl_b) ^ (parani_funcl_c « I6'd3)); 
wire [15:0] result_func2 = 

((param_func2_a ^ param_func2_b) & param_func2_c); 

endmodule 
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int fund (unsigned a, unsigned b, unsigned c) 
{ 

return a + (b = 1) c « 3; 

) 

int func2 (int a, int b, int c) 
{ 

if (a < b) 
c -= b; 

return (a b) & c; 

} 

int func3 (unsigned a, unsigned b, int c) 
{ 

unsigned d = 0; 
unsigned e; 

b++; 

if (a < b) 
I 

int c = e = a - b; 

if(a!=0) 
{ 

c -= a «& b; 
d = C++ b; 

) 

else 
{ 

d++; 

e = c + d?c : 1; 

) 

) 

d= 1; 

return a < b && (a + b c != 3 II a - b == 

} 

FIG.^4A 
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module funcx (clock ^esult_func 1 ,resuit_func2^esuit_func3 ,parain_func 1 _a, 
param_funcl3,param_funcl_c,param_func2_a,parani_func2_b. 
param_func2_c,pararn_func3_a,param_func3_b,param_func3_c); 

input clock; 

input [15:0] param_funcl_a, param_funcl_b, param_funcl_c, parani_func2_a, param_func2_b, 

param„func2_c, param_func3_a, parani_func3_b. param_func3_c; 
output [15:0] result_funcl, result_func2, result_func3; 
reg _5_1; 

reg [15:0] result^func 1 , result_func2, resull_f unc3 . 

_func2_c, _func3_b, _6_func3_d, _6_func3_e, 
_7_func3_c, „1_16, _4_16, _6_16, _7_16; 
reg [16:0] ,2.17, _3_17; 
always @(posedge clock) 
begin 

_1_16 = (param_funcl_b == Iffdl); 

result_funcl = ((parani_funcl_a + _1_16) ^ (param_funcl_c « 16*d3)); 

_func2_c = param_func2_c; 

_2_17 = { - param_func2_a [15], param_func2_a }; 

_3_17 = { - param„func2_b [15], param_func2_b }; 

if (L2_17<_3_17)) 

_func2_c = (_func2_c - parani_func2_b); 
result_func2 = ((param_func2„a ^ param„func2_b) & _func2_c); 
_func3„b = param_func3_b; 
_6_func3_d= 16m 
„func3_b = Lfunc3_b + 16'dl); 
if ((param_func3_a < _func3_b)) 

begin 

_6_func3_e - (param_func3_a - _func3_b); 
_7_func3_c = _6_func3_e; 
if ((param_func3_a != 16'd0)) 
begin 

_7_func3_c = C7_func3„c - (param_func3_a & _func3_b)); 

_4_16 = _7_func3„c; 

_7_func3_c = (_4_16 + 16^dl); 
_6_func3_d = L4_16 ^ Junc3_b); 
end 
else 
begin 

_6_func3_d = L6_func3_d + 16'dl); 

_6_func3_e = (C7_func3_c + _6_func3„d) ? _7„func3,c : 16'dl); 
end 
end 

_6_func3_d= 16'dl; 

_6_16 = (param_func3_c != 16'd3); 

_5_1 = (param_func3,a < _func3_b) && (((param_func3_a + _func3„b) ^ _6_16) 

II ((param„func3„a - _func3_b) == 16'd0)); 
_7_16 = _5_1; 
result_func3 = _7_16; 
end 
endmodule 

F/G._4e 
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ini suml (ini n) 

I 

int i, sum = 0; 

for (i = 0; i < n; i ++) 

sum += i; 
return sum; 

) 

im sum2 (ini array [], int size) 
{ 

int i, sum = 0; 

for (i = 0; i < size; i ++) 

sum += array [i]; 
return sum; 

) 

int main () 
[ 

int i; 

int array [10]; 

int size = sizeof (array) / sizeof (*array); 
for (i = 0; i < size; i++) 

array [i] = i * 2; 
rettim suml (size) + sum2 (array, size); 

) 
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' define _5_main_aiTay 4'hl 

module RAM32X1 (O, D, WE, A4, A3, A2, Al, AO); 
/* synthesis black_box xc_alias="RAM" */ 



inpul D, WE. A4, A3, A2, Al, AO; 

output O; 

reg [31:0] d; 

wire [4:0] A = { A4. A3, A2, Al , AO ) ; 

assign O = d [A]; 



always (2)(A or D or WE) 
if (WE) 
d [A] = D; 
endmodule 

module RAM32xl (a, d, o, we); 
input (4:01 a; 
input d, we; 

output o; 

RAM32X1 RAM32X1 (o, d, we, a [4], a [3], a [2], a [1], a (01) 
endmodule 

module RAM32xl6 (a, d, o, we); 
input we; 
input [ 4:0] a; 
input [15:0] d; 
output [15:0] o; 

RAM32xl UO (a. d [ 0], o [ 0], we); 
RAM32xl Ul (a, d [ 1], o [ 1], we); 
RAM32xl U2 (a, d [ 2], o [ 2], we); 
RAM32xl U3 (a, d ( 3], o ( 3], we); 
RAM32xl U4 (a, d [ 4], o [ 4], we); 
RAM32xl U5 (a, d ( 5], o [ 5], we); 
RAM32xl U6 (a, d [ 6], o [ 6], we); 
RAM32xl U7 (a. d ( 71. o ( 7], we); 
RAM32xl U8 (a, d [ 8], o [ 8], we); 
RAM32xl U9 (a. d ( 9], o [ 9], we); 
RAM32xl UIO (a. d [10], o [10], we); 
RAM32xl Ull (a, d [11], o [11], we); 
RAM32xl U12 (a. d [12], o [12], we); 
RAM32xl U13 (a, d [13], o [13], we); 
RAM32xl U14 (a, d [14], o [14], we); 
RAM32xl U15 (a. d [15], o [15]. we); 
oidmodule 

module RAMI 1x16 (a, d, o, we); 
input we; 
input [ 3:0] a; 
input [15:0] d; 
output [15:0] o; 

RAM32xl6 U ({ I'bO, a ], d, o, we); 
endmodule 
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module fori (clock, reset, resull_suml, result_sum2, result_main, 

param_suml_n, param_suin2_array, param_sum2_si2e, run_suinl, 
ready_suml, run_sum2, ready _sum2, run_main, ready _main); 

input clock, reset, run_suml. run_sum2, run^main; 

input [15:0] param_suml_n,param_sum2_array,param_suni2_size; 

output ready_sum 1 , ready_sum2, ready„main; 

output [15:0] resull„suni 1, resuit_sum2, result^main; 

reg [15:0] resuU_suml, result_sum2, result.main; 

reg ready_sum 1 , ready_sum2, ready_main, we; 

wire [15:0] o, d; 

reg [ 3:0] state, a, retum_staie_suml , retum_state_suni2; 

reg [15:0] _suml_n, _2_sumlJ, _2_suml_sum, _sum2_array, _sum2_size; 

reg [15:0] _4„sum2_i, _4_sum2_sum, _5_niain_i, _5_main_size, „5_16, _8_16; 

reg [16:0] ,1_17, _2_17, _3-17, _4_17, _6_17, _7_17; 

RAMI 1x16 m (a, d, o. we); 
parameter _suml = 1, _sum2 = 5; 

always @(posedge clock) 
begin 
if (reset) 
begin 
we = 0; 
state = 0; 

end 
else 
begin 

case (state) 
0: begin 

if (run^suml) 
begin 
ready_suml = 0; 
retum_state_sunil = 0; 
_suml_n = param_suml_n; 
stale = _sum 1 ; 
end 

else if (run_sum2) 
begin 

ready_sum2 = 0; 

retum_state_sum2 = 0; 

_sum2„anray = param_suni2_array; 

_sum2_size = param_sum2_size; 

state = _sum2; 
end 

else if (run_main) 
begin 

ready_main = 0; 

_5_main_size = 16*dl0; 

_5_mainJ = l&dO; 

state = 9; 
end 

""^ FIG.^5B2 
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_suml: begin 

_2_suml_sum = 16'd0; 

_2_sumlJ = 16'd0; 

state = 2; 
end 
2: begin 

_1_17 = { - _2_sumlJ [15], _2_sumlJ ); 
„2_17 = { - _suml_n [151, _suml_n ); 
Slate = LX^ll < _2.17) ? 3 : 4; 
end 
3: begin 

_2_suml_sum = C-2_suml_sum + _2_sumlJ); 

_2„suml J = C2_suml J + 16'dl); 

state = 2; 
end 
4: begin 

result_suml = _2_suml_sum; 

ready„suml = 1; 

state = retum_state_siiml; 
end 
suni2: begin 

_4_sum2_sum = IffdO; 

_4_sum2J = 16'dO; 

state = 6; 
end 
6: begin 

_3_17 = { -'_4_suni2J [15], _4_sum2J ); 
_4_17 = ( - _sum2_size [15], _sum2_size ); 
state = L3_17 < _4_17) ? 7 : 8; 
end 
7: begin 

a = (_sum2„arTay + _4_suni2_i); 
slate = 12; 
end 
12: begin 

_5_16 = o; 

_4_sum2_sum = C4_sum2_sum + .5_16); 

„4_sum2 J = C4„sum2_i + 16'dl); 

state = 6; 
end 
8: begin 

result_sum2 = _4_sum2_sum; 

ready_sum2 = 1; 

state = retum_siaie_sum2; 
end 
9: begin 

_6_17 = { - _5_main_i [15], _5_mainJ ); 
_7_17 = { - _5_main_si2e [15], _5_main_size ) 
state = C6_17 < _7_17) ? 10 : 11; 
end 
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10: begin 

_8_16 = C5_mainJ « I'dl); 

a = C_5_niain_an'ay + _5_main_i); 

d = .8.16; 

we = 1; 

state = 13; 
end 
13: begin 

we = 0; 

_5_main_i = (_5_main_i + Iffdl); 

state = 9; 
end 
11: begin 

_suml_n = _5_main_size; 

retum_state„suml = 14; 

state = _suml; 
end 
14: begin 

_sum2_array = '_5_main_array; 

_suin2_size = _5_main_size; 

retiim_state_sum2 =15; 

state = _suni2; 
end 
15: begin 

result_main = (result_suml + result„sum2); 
ready_main = 1; 
state = 0; 
end 
default: ; 
endcase 
end 
end 
endmodule 
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#include <stdio.h> 
void main 0 

{ 

int a, b; 

scanf r%d%d",&a, &b); 
printf ("a + b = %d\n", a + b); 

) 



module Printf (clock, scanf_0_l Jine_19_a, scanf_0_2_line_193, printf_l_l Jine„20, run^main) 
input clock, run_main; 

input [15:0] scanf_0_ljine_19_a, scanf_0_2_line_19_b; 
output [15:0] printf_l_ljine_20; 

reg [15:0] printf_l_l_line_20, _3„main_a, _3_main_b; 

always @(posedge clock) 
begin 
if (nin_main) 
begin 

_3_main_a = scanf_0_l Jine_19_a; 
_3_main_b = scanf_0_2_line_19_b; 
printf_l_l_line_20 = C3_main_a + _3_main_b); 

// User Verilog code 

Swrite ("a + b = %d^", prinif_l„l_Iine_20); 
// End of user Verilog code 
end 
end 
endmodule 
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int func (a, b, c, d) 

{ 

return (a / b + c / d); 

) 



FIG. ^7 A 



module udivmodl6 (a, b, div, mod); 
input [15:0] a, b; 
output [15:0] div, mod; 

reg [15:0] div, mod, paO, pal, pa2, pa3, pa4, pa5, pa6, pa7, pa8, pa9, palO, pal 1, 
pal3, pal4, palS, pal6, shbO; 
shbl; 



pal2. 
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always @(a or b) 
begin 
paO = a; 

shbl5 = b « 15; 

div [15] = paO>=shbl5; 

pal = div [15] ? paO - shbl5 



paO; 



shbl4 = b « 14; 

div [14] = pal >= shbl4; 

pa2 = div [14] ? pal - shbl4 : pal; 

shbl3 = b « 13; 

div [131 = pa2>=shbl3; 

pa3 = div [13] ? pa2 - shbl3 : pa2; 
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shbl2 =:b« 12; 

div [12] = pa3 >= shbl2; 

pa4 = div [12] ? pa3 - shbl2 : pa3; 

shbll =b«ll; 

div [ll] = pa4>= shbll; 

pa5 = div [1 1] ? pa4 - shbl 1 : pa4; 

shblO = b « 10; 

div [10] = pa5 >= shblO; 

pa6 = div [10] ? pa5 - shblO : pa5; 

shb9 = b « 9; 

div [ 9] = pa6 >= shb9; 

pa7 = div [9] ? pa6 - shb9 : pa6; 

shb8 = b « 8; 

div [ 8] = pa7 >= shb8; 

pa8 = div [8] ? pa7 - shb8 : pa7; 

shb7 = b « 7; 

div [ 7] = pa8 >= shb7; 

pa9 = div [7] ? pa8 - shb7 : pa8; 

shb6 = b « 6; 

div [ 6] = pa9 >= shb6; 

palO = div [6] ? pa9 - shb6 : pa9; 

shb5 = b « 5; 

div [ 5] = palO shb5; 

pal 1 = div [5] ? palO - shb5 : palO; 

shb4 = b « 4; 

div [ 4] = pal 1 >= shb4; 

pal2 = div [4] ? pall - shb4 : pal 1; 

shb3 = b « 3; 

div [ 3] = pal2 >= shb3; 

pal3 = div [3] ? pal2 - shb3 : pal2; 

shb2 = b « 2; 

div [ 2] = pal 3 >= shb2; 

pal4 = div [2] ? pal3 - shb2 : pal3; 

shbl = b « 1; 

div [ 1] = pal4 >= shbl; 

pais = div [1] ? pal4 - shbl : pai4; 

shbO = b « 0; 

div [ 0] = pais >= shbO; 

pal6 = div [0] ? palS - shbO : palS; 

mod = pal6; 
end 

endmodule 



FIG.^7B2 



14/90 



module sdivmcKll6 (a, b, div, mod); 

input [15:0] a, b; 
ouq)ut[15:0] div, mod; 

wire [15:0] ua = a [15] ? - a : a; 
wire [15:0] ub = b[15]?-b:b; 
wire [15:0] udiv»umod; 

udivmodl6 udivmod (ua, ub, udiv, umod); 

wire [15:0] div = (a [15] != b [15]) ? - udiv : udiv; 
wire [15:0] mod = a [15] ?- umod : umod; 

endmodule 



module DivEx (clockjresel,result_func,param_func_a,param_func_b, 
param_func_c,param_func_d,run_func/eady_func); 

input clock, reset, run_func; 

input [15:0] param_func„a, param_func_b, param_func_c, param_func_d; 
output ready_func; 
output [15:0] result__func; 

reg [15:0] result_func, divmod^a, divmod_b» _1-16, _2_16; 
reg rcady_func; 
reg [ 1:0] state; 
wire [15:0] div_result; 

sdivmodl6 sdivmod (divmod_a, divmod_b, div_result, ); 

always @(posedge clock) 
begin 
if (reset) 

state = 0; 
else 
begin 

case (state) 

0: begin 

if (run_func) 
begin 
ready_func 0; 
divmod_a = param_func_a; 
divmod_b = param_func_b; 
state = 1; 
end 
end 
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1: begin 

116 = div_result; 
divmod_a = param_func_c; 
divmod_b = param_func_d; 
Slate = 2; 
end 

2: begin 

_2_16 = div_result; 

result.func = {_1_16 + _2_ 

ready_func = 1 ; 

state = 0; 
end 

default: ; 

endcase 
end 
end 

endmodule 
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int datajn; 
int ouil; 
int out2; 
int ciata_out; 

voidpipeline_stage_l 0 

outl = daiajn-*- 1; 



void pipeline_stage_2 0 
out2 = outl + outl; 



void pipeline_stage_3 0 
data_out = oul2 ^ 1234; 



#ifndef_SYNETRY_ 
#include <sidio.h> 

void main 0 
{ 

for (;;) 
{ 

scanf("%d",& datajn); 

pipeline_stage_l 0; 
pipeline_stage_2 (); 
pipeline_stage_3 0; 

printf ("%d", data_out); 

} 

] 

#endif 



CLEV-1 



17/90 



module Pipeline (clock, _data_in, _daia_out, nm_pipeline_siage_l/un_pipeline_stage_2, 
mn j>ipeline_siage_3) ; 

input clock, run_pipeiine_stage_l , nin_pipeline_stage_2, run_pipeline_siage_3 ; 

input [15:0] _data_in; 

output [15:0] _clata_out; 

reg [15:0] _data„out, _outl, _out2; 

always @(posedge clock) 
begin 

if (run_pipeline_stage_l) 
_outl = Cd^^a_in + I6'dl); 

end 

always @(posedge clock) 
begin 

if (run_pipeiine_siage_2) 
_out2 = (_ouil + _outl); 

end 

always @(posedge clock) 
begin 

if (run_pipeline_stage_3) 

_daia_out = (_out2 ^ I6'dl234); 

end 
endmodule 

FIG.^8B 
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int func (float a, double b, long double c, ini i) 
{ 

return - a + b * c - 16.5 / c; 



module Float (clock^eseuero_subsiractor_float_operand. 

zero_substractor_float_mn,zero_substractor_noat_ready,zero„substractor_fl^^ 

convertor_from_floai_toJong_double_operand,convertor_from_float_loJong_doub^ 

conveTOr_from_float_loJong_double_ready,converior_fTom_float_toJong_doub^ 

convemr_from_double_to_long_double_operand,convertor_tom_double_tojong_^ 

convertor_from_double_io_long_double_i^dy,conveitor_from_double_^^ 

muldplierJong_double_a,multiplierJong_double_b,mulQplierJong_double_nin, 

mduplierjong_double_ready,muldplier_long_double_result,adder_long_.double_a, 

addCTjong_double_b,adderJong_double_run, adder Jong_double_ready,adderJong„double_rc^ 

dividerJong„double_a,dividerJong„double_b,dividerJong_double_run, 

divider Jong_double_ready,divider_long_double_result,substractorJong„double_a, 

substraclorjong^double_b,substractor_long_double_run,substractor_iong_.double_ready, 

substractorJong_double__result,convertor_fTomJong_double_to_signed_16_operand, 

convertor_fromjong_double_to_signed_16_run,convertor_fh)mjong_double_io^^ 

vertor_fromJong_double_lo_signed_16_result, result_func»parain_func_a,param_func_b, 

paiain_func_c,param_funcj^i2n_func^dy_func); 



input clock, reset, zero_substractor„float_ready, convertor_from_float_ioJong_double_ready, 

convertor_froin_double_to_long_double_ready, muluplier_long„double_ready, 
adder_long_double_ready, divider Jong_double_ready, substractor Jong_double_ready, 
con vertor_from Jong_double_lo_signed_l 6_ready , run_func; 

input [15:0] convertor_fromJong_double_lo„signed_16_result, param_funcj; 

input [31:0] zero__substTactor_float_result, parani_func_a; 

input [63:0] param_func_b; 

input [79:0] convertor_from_float_toJong_double_result, param_func_c, 

convertor_from„double_tojong_double_result, multiplier_long_double_ready, 
adderJong_doubIe_result, divider_long^double_result, substractorJong_double_result; 

ou5)ut zero„substractor_.float_run,converlor_froni_float_tojong^double_run. 

convertor_from_doubIe_to_long_doubIe_run, muluplier_long_double„run, 
adderJong_double_run, dividerJong_double_run, subsiiactor_long__double_run» 
con vertor_from_long_double_to„signed_l 6„run, ready_func; 

output [15:0] result_func; 

output [31:0] zero_substractor_float_operand,convertor_from_float_tojong_double_operand; 
output [63:0] convertor_from_double_to„long_double_opCTand; 

output [79:0] multiplierjong_double_a, multiplierJong_double_b, adderJong_double_a, 
adder Jong_double_b» divider_long_double„a, divider_long__double_b. 
substractorJong_double_a, substracior_long_double_b, 
convertor_fromjong_double_to_signed_16„operand; 
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2ero_substractor_float_run. convertor_from_noat_to_iong_double_run, 
convertor_froin_double_tojong_double_njn, multiplier_Iong_doubIe_'^", 
adder_Iong_double_run, dividerJong_double_run, substractorJong_double_run, 
convertor_from_long_doubie_to_signed_l 6_run, ready_func; 
[ 4:0] state; 

[15:0] result_func, _8_16; 

[31:0] zero_substractor_floal_operand, convertor_from„float_io_long_double_operand, _1_32; 
[63:0] convertor_from_double_io_long_double_operand; 

[79:0] inultiplier_long_double_a, multiplierJong_double„b, adder_long_double_a, 
adder_long_double_b» divider_long_double_a, divider_long_double_b, 
substractor_long_double_a, substractor_long_double_b, 

convertor_froni_Iong_double_to_signed„16_operand, 2_80, _3_80, „4_80, _5_80, 
_6_80, _7_80; 

always @(posedge clock) 
begin 
if (reset) 

state = 0; 
else 
begin 

case (state) 

0: begin 
if (run_f unc) 
begin 

ready_func = 0; 

zero_substractor_float_operand = parani_func_a; 
zcro_substractor_floai_run = 1; 
state = 1; 
end 
evd 

1: begin 
zero_substractor_float_run = 0; 
_1_32 = zero_substractor_float_result; 
if (2ero„subsiractor_float__ready) 

state = 2; 
end 

2: begin 

convertor„from_float_to_long_double_operand = _1_32; 
convertor_from_noai_toJong„double_run = 1; 
state = 3; 
end 

3: begin 

convertor_from_float_to Jong_doubIe„run = 0; 
_2_80 = convertor_from_floai_to_long_double_result; 
if (convertor_fronn_float_toJong_doubIe_ready) 
state ~ 4; 

end 
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4: begin 

convertor_fTom_doubIe_to_long__doubIe_operand = param_func. 
convertor_from_double_toJong_double_run = 1; 
state = 5; 
erd 

5: begin 

convertor_froni_double_toJong_double_run = 0; 
_3_80 = convertor_from_double_to_long_double_resuit; 
if (convertor_from_doubIe_loJong_double_ready) 
state = 6; 

6: begin 

niultipIierJong_double_a = _3_80; 
nnultiplier Jong_double_b = param_func_c; 
multiplier_long_double_run = 1; 
state = 7; 
erel 

7: begin 
multiplier_long_double__run = 0; 
_4_80 = multiplier Jong_double_result; 
if (muitiplier_long_doubIe_ready) 
state = 8; 

end 

8: begin 

adder_long_double_a = _2_80; 

adderJong_double_b = _4_80; 

adder_long_double_run = 1 ; 

state = 9; 
end 

9: begin 
adder Jong_double_run = 0; 
_5„80 = adderJong_double_result; 
if (adder_long_double_ready) 
state = 10; 

eixl 

10: begin 

divider Jong_double_a = 80'h0000000000803040; 
divider_long_double_b = parani_fiinc_c; 
divider Jong_double_run = 1; 
state = 11; 
end 

11: begin 
divider_long_double_run = 0; 
_6_80 = dividerJong_doubIe_result; 
if (divider_long_double_ready) 
state = 12; 

end 
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12: begin 
substracior_long_cloubIe_a = _5_80; 
substractor_long_double_b = _6_80; 
substractor_long_doubie_run = 1 ; 
state = 13; 

13: begin 
substractor_long_double_run = 0; 
_7_80 = substractor_long_double__result; 
if (substractor Jong_double_ready) 
state = 14; 

end 

14: begin 

convertor_from_long_double_to_signed_16_operand = _7_80; 
convertor_fromJong_double_to_signed_16_njn = 1; 
state = 15; 
end 

15: begin 

convertor_from_long_double_to_signed_16_run = 0; 
_8_16 = convenor_fromjong_double_to_signed_16_result; 
if (convertor_from_Iong_doubie_to_signed_l 6_ready) 
state = 16; 
end 

16: begin 

result_func = _8_16; 

ready_func = 1; 

state = 0; 
end 

default: ; 

endcase 
end 
end 
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typedef struct 
[ 

im real; 
int image; 

) 

Complex; 

Complex add (Complex a. Complex b) 
{ 

Complex c; 

creal = a.real + b.real; 
c.image = a.image + b.image; 
return c; 

) 

Complex x= { 1. 2 ), y = { 3,4 }, z; 
void main 0 

{ 

z = add (x, add (x, y)); 

} 
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^define _add_a 4'hl 
^define _add_b 4'h3 
^define _3_add__c 4'h5 
' define _x 4'h7 
^ define _y 4'h9 
"define __z 4*hB 

module Complex (clock, reset, a, d, o, we, resuU_add, param_add_a, 

param_add_b, run_add, ready_add, run_main, ready^main); 

input clock, reset, run_add, run_main; 

input [15:0] o; 

input [31:0] param_add„a, param_add_b; 

output we, ready_add, ready_main; 

output [ 3:0] a; 

output [15:0] d; 

output [31:0] result^add; 

reg we, ready_add, ready„main; 

reg [ 3:0] a; 

reg [ 4:0] state, retum„siate_add; 

reg [15:0] d, „1„16, „2_16, _3_16, _4_16, _5_16, _6„16; 

reg [31:0] result„add, _7_32, .8^2, _9_32, _10_32; 

parameter _add = 1 ; 

always @(posedge clock) 
begin 
if (reset) 
begin 
we = 0; 
state = 0; 
end 
else 
begin 

case (state) 
0: begin 

if (run_add) 
begin 
ready_add = 0; 
retum_state_add = 0: 
a = ^_add_a; 

d = param_add_a [31:16]; 
we = 1; 
state = 2; 
end 

else if (run_main) 
begin 

ready_main = 0; 

a = ^_x; 

state =14; 
end 
end 
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2: begin 
we = 0; 

a = '_add_a + 4'dl: 
d = parani_add_a [15:01; 
we= 1; 
state = 3; 
end 

3: begin 
we = 0; 
a = ^_add_b; 

d = parani_add_b [31:16]; 
we = 1; 
Slate = 4; 
end 

4: begin 
we = 0; 

a = ^_add_b + 4'dl; 
d = param_add_b [15:0]; 
we = 1; 
state = 5; 
end 

5: begin 
we = 0; 
state = _add; 
end 

_add: begin 

a = '_add_a; 
state = 6; 
end 

6: begin 

-1^16 = o; 
a = *_add_b; 
state = 7; 
end 

7: begin 

-2_16 = o; 

-3_16=C1-16 + _2_16); 
a = ^_3_add_c; 
d = ,3,16; 
we = 1; 
state = 8; 
end 

8: begin 
we = 0; 

a = C,add_a+ 16^dl); 
state = 9; 
end 
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9: begin 

_4_16 = o; 

a = C_add_b + 16'dl); 
state = 10; 



10: begin 

_5_16 = o; 

_6_16 = C4«16 + _5_16); 
a = r_3_add_c+ Iffdl); 
d = _6_16; 
we = 1; 
state = 11; 
end 

11: begin 
we = 0; 
a = '_3_add_c; 
state =12; 
end 

12: begin 

_7_32 [31:16] = o; 
a = ^_3„add_c + 4'dl; 
state = 13; 
end 

13: begin 

_7_32 [15:0] = o; 
result_add = _7_32; 
ready_add= 1; 
state = retum_state_add; 
end 

14: begin 

„8„32 [31:16] = o; 
a = + 4'dl; 
state = 15; 
end 

15: begin 

„8_32 [15:0] = o; 
a = "_add_a; 
d = _8^32 [31:16]; 
we = 1; 
state = 16; 
end 

16: begin 
we = 0; 

a = "_add_a + 4'dl; 
d = _8_32[15:0]; 
we = 1; 
state = 17; 
end 

FIG..10B3 



26/90 



17: begin 
we = 0; 
a = _x; 
state = 18; 
end 

18: begin 

_9„32 [31:16] = o; 
a = ^,x + 4'dl; 
state = 19; 
end 

19: begin 

_9_32 [15:0] = o; 
a = "_add_a; 
d = .9„32 [31:16]; 
we = 1; 
state = 20; 
end 

20: begin 
we = 0; 

a = '_add_,a + 4'dl; 
d = _9_32 [15:0]; 
we = 1; 
state = 21; 
end 

21: begin 
we = 0; 
a = ^^; 
state = 22; 
end 

22: begin 

_10„32 [31:16] =o; 
a = ^_y +4'dl; 
state = 23; 
end 

23: begin 

_10_32[15:0] = o; 
a = ^_add_b; 
d = _10_32 [31:16]; 
we = 1; 
state = 24; 
end 

24: begin 
we = 0; 

a = ^_add_b + 4'dl; 
d = _10^32 [15:0]; 
we = 1; 
state = 25; 
end 
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25: begin 

we = 0; 

retum_state_add = 26; 
state = _add; 
end 

26: begin 

a = '_add_b; 
d = resuU_add [31:16]; 
we = 1; 
state = 27; 
end 

27: begin 

we = 0; 

a = ^_add_b + 4'dl; 
d = result_add[15:0]; 

we = 1; 

stale = 28; 
end 

28: begin 

we = 0; 

retuni_siate„add = 29; 
state = „add; 
end 

29: begin 
a = ^_z; 

d = result_add [31:16]; 
we = 1; 
state = 30; 
end 

30: begin 
we = 0; 
a = ^_z + 4'dl; 
d = result_add [15:0]; 
we = 1; 
state = 31; 
end 

31: begin 
we = 0; 

ready _main = 1; 
state = 0; 
end 

default: ; 

endcase 
end 
end 

endmodule 
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#ifndef_SYNETRY_ 
#include <assert.h> 
#include <stdio.h> 
#include <stdlib.h> 
#else 

#define NULL ((NODE *) 0) 

#defme assert(a) 

#endif 

#derine MAX.NODES 10 

struct _Node 

{ struct _Node * pLef t; 

struct _Node * pRight; 

int nKey; 

int nValue; 

); 

typedef struct _Node NODE; 
static NODE Nodes [MAX.NODES]; 
static int nNodes; 
NODE * pTree; 
void Initialize (void) 
{ nNodes = 0; 
pTree = NULL; 

) 

static NODE * NewNode (int nKey, int nValue) 

{ assert (nNodes >= 0 && nNodes <= MAX_NODES); 

if (nNodes == MAX_NODES) 
return NULL; 

Nodes [nNodes].pLeft = NULL; 

Nodes [nNodes].pRight = NULL; 

Nodes [nNodesj.nKey = nKey; 

Nodes [nNodes].n Value = nValue; 

return & Nodes [nNodes++]; 

) 

NODE * FindNode (int nKey) 
[ NODE*p; 

p = pTree; 

while (p != NULL) 

{ 

if (p -> nKey < nKey) 

p = p -> pLeft; 
else if (p -> nKey > nKey) 

p = p -> pRight; 
else 

return p; 

} 

return NULL; 

} 

int FindValue (int nKey) 
{ NODE*p; 

return (p = FindNode (nKey)) == NULL ? -1 : p -> nValue; 
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NODE * FindOrAddNode (nKey, nValue) 
int nKey; 
int nValue; 
( NODE**p; 
p = & pTree; 
while (*p != NULL) 
{ if ((*p)-> nKey < nKey) 
P = & (*P) -> pLeft; 
else if ((*p) -> nKey > nKey) 

p = & (*p) -> pRight; 
else 

return (*p); 

} 

return *p = NewNode (nKey, nValue); 

} 

intFindOrAddValue (nKey, nValue) 
int nKey; 
int nValue; 

{ NODE * p = FindOrAddNode (nKey, nValue); 
return p == NULL ? -1 : p -> nValue; 

} 

#ifhdef _S YNETR Y_ 
void PrintTree (int nLevel, NODE * p) 
{ if (p = NULL) 
return; 

PrintTree (nLevel + 1, p -> pLeft); 

printf ("%*s%d [%df^\ nLevel * 4, p -> nKey, p -> nValue); 
PrintTree (nLevel + 1, p -> pRighi); 

) 

void main 0 

{ intanKeys[20] ^ . 

= { 12, 4,7,2,18,24,0, 5,14,1,43,6,19,21,26,11,37,8,4,9); 

int i; 



Initialize Q; 

for (i = 0; i < 20; i++) 

FindOrAddValue (anKeys [i], i); 
for (i = 0; i < 20; i++) 

printf r%d: %(lsn", i, FindValue (i)); 
printf (*'^nTree:Nn"); 
PrintTree (0, pTree); 

] 

#endif 
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'define _Nodes 6'hl 
'define _pTree 6'h29 

module Tree ( clock, reset, a. d, o, we, result.FindNode, resulLFindValue, result_FindOrAddNode, 
resuIt„FindOrAddValue, param_FindNode_nKey, param_FindVaIue_nKey, 
param_FindQrAddNode_nKey, param_FindOrAddNode_n Value, 
param_FmdOrAddValue_nKey, param_FindOrAddValue_n Value, 
ninjnitialize, ready Jnitialize, run_FindNode, ready_FindNode, 
nin_HndValue, ready_FindValue, run_FindOrAddNode, 
ready_FindOrAddNode, nin^FindOrAddValue, ready_FindOrAddValue ); 
input clock, reset, run Jnitialize, run_FindNode, run_Find Value, nin_FindOrAddNode, 

nin_FindOrAddValue; 

input [15:0] o, param_FindNode_nKey, param_FindValue_nKey, param_FindOrAddNode_nKey, 
param_FindOrAddNode_n Value, param_FindOrAddValue_nKey, 
parani_FindOrAddValue_nValue; 

output we, readyjnitialize, ready_FindNode, ready_FindValue, ready_FindOrAddNode, 

ready_RndOrAddValue; 

output [ 5:0] a, result_FindNode, result_FindOrAddNode, d, result_FindValue, result_FindOrAddValue; 
reg we, ready ^Initialize, ready_FindNode, ready_FindValue, ready _FindOrAddNode, 

rcady_FindOrAddValue; 

reg [ 5:0] a, result_FindNode, resuit_FindQrAddNode, d, result_FindValue, result^FindOrAddValue, 
state, result_NewNode. _7_FindNode_p, _10_FindValue_p. _l3_F!ndOrAddNode_p, 
_17_FindOrAddValue_p, retum__siate__NewNode, retum_state_FindNode, 
retum^state.FindOrAddNode, „1_6, „2_6, .3_6, _4_6, _5_6, _6_6, _7_6, _8^6, _9_6, 
_10_6, __12_6, _13_6, ^14_6, _18_6, „22_6, ,23,6, „24_6, „27_6, _28_6, _29_6, 
_33_6, _34_6, _38_6, _39^6, _40_6; 

reg [15:0] __nNodes, _NewNode_,nKey, _NewNode_nValue, _FindNode_nKey, 

_FindOrAddNode_nKey, _FindOrAddNode„n Value, _30_16, _35_16, ,1 1_16, ,15,16, 
,19^16, _25„16, _26_16, .41„16, _42_16; 

reg [16:0] ^16_17, _17_17, _20_17, .21.17, _31.17, _32_17, _36_17, .37.17; 

parameter _NewNode = 1, 
_FindNode = 5, 
.FindOrAddNode=14; 

always @(posedge clock) 
begin 
if (reset) 
begin 
we = 0; 
state = 0; 
end 
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else 
begin 

case (state) 

0: begin 

if (runjnitiaiize) 

begin 

readyjnilialize = 0; 
_nNodes = 16'd0; 
_1_6 = 16'd0; 
a = ^_pTree; 
d [15:10] = _1_6; 
we = 1; 
state = 23; 
end 

else if (run_FindNode) 
begin 
ready _FindNode = 0; 
retiim_siate_FindNode = 0; 
_FindNode_nKey = param„FindNode„nKey; 
Slate = _FindNode; 
end 

else if (run„FindValue) 
begin 

ready _FindValue = 0; 

_FindNode_nKey = param„FindValue„nKey; 
retum_state_FindNode =33; 
Slate = _FindNode; 
end 

else if (run_FindOr AddNode) 
begin 

ready^FindOrAddNode = 0; 
retum_state JindOrAddNode = 0; 

_FindOrAddNode_nKey = paiam_FindOrAddNode_nKey; 
_FindOrAddNode_n Value = param.FindOrAddNode^nValue; 

State = _FindOrAddNode; 
end 

else if (run.FindOrAddValue) 
begin 

ready_FindOrAddValue = 0; 

FindOrAddNode.nKey = param_FindOrAddValue„nKey; 
iFindOrAddNode^nValue = param_FindOrAddValue_n Value; 
retum_staie_FindOrAddNode = 48; 
State = _FindOrAddNode; 
end 
end 

23: begin 
we = 0; 

ready ^Initialize = 1 ; 
Slate = 0; 
end 

NewNode: state = LnNodes == 16'dlO) ? 2 : 3; 
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2: begin 

_2J> = 16'd0; 
result_NewNode = _2_6; 

state = 4; 
end 

3: begin 

_3_6 = I6'd0; 
_4_6 = CnNodes « 2*d2); 
_5,6 = _3_6; 
a = C_Nodes + _4_6); 
d [15:10] = _5_6; 
we= 1; 
state = 24; 
end 

24: begin 
we = 0; 
_6_6 = IffdO; 
_7_6 = (_nNodes « 2'd2); 
_8_6 = „6_6; 

a = (C .Nodes + JJ>) + 6'dl); 
d [15:10] =_8_6; 
we= 1; 
state = 25; 
end 

25: begin 
we = 0; 

J9J> = CnNodes « Td2); 
a = (C .Nodes + _9.6) + 6*d2); 
d = _NewNode_nKey; 

we = 1; 

state = 26; 
end 

26: begin 
we = 0; 

_10_6 = CnNodes « 2*d2); 
a = (C-Nodes + _10_6) + 6'd3); 
d = _NewNode„nValue; 

we = 1; 
state = 27; 
end 

27: begin 
we = 0; 

_11_16 = _nNodes; 
_nNodes = CH-l^ + I6'dl); 
_12_6 = Cll_16 « 2'd2); 
result_NewNode = C -Nodes + „12_6); 
stale = 4; 
end 
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4: state = retum_state_NewNode; 

FindNode: begin 
a = ^_pTree; 
state = 28; 
end 

28: begin 

_13„6 = o [15:10]; 

_7_FindNode_p = _13_6; 

Slate = 6; 
end 

6: begin 

_14_6 = 16'd0; 

state = C7_FindNode_p 1= _14_6) ? 7 : 12; 
end 

7: begin 
a = C.7_FindNode_p + 6'd2); 

stale = 29; 

end 

29: begin 
_15_16 = o; 

16.17= {-„15_16 [151, _15_16); ^ ^ . 

ri7_17 = I - „FindNode_nKey [15], _FindNode_nKey 
state = C-16„17 < _17_17) ? 8 : 9; 
end 

8: begin 
a = _7„FindNcxle„p; 
state = 30; 
end 

30: begin 

„18_6 = o [15:10]; 

_7_FindNode_p = _18_6; 

state = 6; 
end 

9: begin 
a = (_7_FindNode_p + 6'd2); 

state = 31; 
end 

31: begin 
_19_16 = o; 

20_17 = { - _19_16 [15], _19„16 ) ; 
21.17 = { - _FindNode_nKey [15], _FindNode_nKey ]; 
"state = C20„17 > „21_17) ? 10 : 11; 
end 

10: begin 
a = (_7_FindNode_p + 6'dl); 
state = 32; 
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32: begin 

_22_6 = o [15 :10]; 

_7„FindNocle_p = _22_6; 

state = 6; 
end 

11: begin 
result_FindNode = _7_FindNode.p; 

Slate = 13; 
end 

12: begin 

_23_6 = 16^0; 

resultJindNode = _23_6; 

state = 13; 
end 

13: begin 
ready _FindNode = 1 ; 
state = retum_siate_FindNode; 

end 

33: begin 

_10_FindValue_p = result.FindNode; 
_24_6=16'd0; 

state = (result.FindNode == _24_6) ? 34 
end 

34: begin 

_25„16=-I6'dl; 

state = 36; 
end 

35: begin 
a = C10_FindValue_p + 6*d3); 

state = 37; 

end 

37: begin 

^26^16 = o; 

_25_16 = _26_16; 

state = 36; 
end 

36: begin 

result_FindValue = _25_16; 

ready _FindValue = 1; 

state = 0; 
end 
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FindOrAddNode: begin 

_ 1 3_FindOr AddNode_p = ^ _pTree; 

stale = 15; 

end 

15: begin 
a = _13_FindOrAddNode_p; 

state = 38; 
end 

38: begin 

_27_6 = o [15:10]; 
_28_6 = I6'd0; 

state = (_27_6 1= _28_6) ? 16 : 21; 
end 

16: begin 
a = _13_FindOrAddNode_p; 

state = 39; 
end 

39: begin 

_29_6 = o [15:10]; 

a = C-29„6 + 6'd2); 

state = 40; 
end 

40: begin 
_30_16 = o; 

31 17 = { - _30_16 [15], _30.16 ) ; r . ^ ^ 

Jljl = I ^_FindOrAddNode_nKey [151,_FindOrAddNode_nKey J 

state = L31_17 < _32_17) ? 17 : 18; 
end 

17: begin 
a = _13_FindOrAddNode_p; 

state = 41; 

end 

41: begin 

„33_6 = o [15:10]; 
_l3_FindOrAddNode_p = _33_6; 
state =15; 
end 

18: begin 
a = _13_FindOrAddNode_p; 

state = 42; 

end 

42: begin 

_34_6 = o [15:10]; 

a=C34_6 + 6'd2); 

state = 43; 
end 
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43: begin 
„35_16 = o; 

„36_17 = { ^ _35„16 [15], _35_16 ); 
_37_17= { --^FindOrAddNodejKey [15],_FindOrAddNode_nKey ); 
state = L36_17 > _37_17) ? 19 : 20; 
end 

19: begin 
a = _13_FindOrAddNode_p; 
state = 44; 
end 

44: begin 

„38_6 = o [15:10]; 

^13„FindOrAddNode_p = L38_6 + 6*dl); 
state = 15; 
end 

20: begin 
a = _13_FindOrAddNode_p; 
state = 45; 
end 

45: begin 

_39„6 = o [15:10]; 
resuit^FindOrAddNode = _39_6; 
state = 22; 
end 

21: begin 

_NewNode_nKey = _FindOrAddNode_nKey; 
_NcwNode_n Value = _FindOrAddNode_nValue; 

retum_state__NewNode = 46; 

state = _NewNode; 
end 

46: begin 
a = _13_.FindOrAddNode_p; 
d [15:10] = resuit_NewNode; 
we = 1; 
stale = 47; 
end 

47: begin 
we = 0; 

result_FindOrAddNode = resuk_NewNode; 
state = 22; 
end 
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22: begin 

ready_FindOrAddNode = 1; 

state = retum_siate_FindOrAddNode; 
end 

48: begin 

_17_FindOrAddValue_j) = result^FindOrAddNodc; 
,40.6 = 16'd0; 

Slate = Cn^FindOrAddValue^p = _40„6) ? 49 : 50; 
end 

49: begin 

.41_16= -16'dl; 

state = 51; 
end 

50: begin 

a = C17-FindOrAddValue_p + 6'd3); 
stale = 52; 
end 

52: begin 

_42_16 = o; 

_41_16 = ,42_16; 

state = 51; 
end 

51: begin 

resuit_FindOrAddValue = _41„16; 

ready_FindOrAddValue = 1; 
state = 0; 
end 

default' ; 

endcase 

end 



endmodule 
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#include <stdio.h> 
int eveni_occured = 0; 
#pragnia synchronous on_eveni 

void on_event 0 
{ 

evem_occured = 1; 

J 

void main 0 
{ 

int a, b, c; 

scanf ("%d %d", & a, & b); 
c = event_occured ? a + b : a - b; 
primf("%d^",c); 

) 
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module E vent^sy (clock^esei,scanf_0„ 1 _line_ 1 6_a,scanf_0_2 Jine„l 6_b>printf _ 1 _ 1 _line_20_c, 

run_on_event/un_main); 
input clock, reset, run_on_event, run_main; 

input [15:0] scanf_0_ljine_16_a, scanf_0_2Jine_16_b; 
ouqjut [15:0] printf_l_l Jine_20_c; 

reg [15:0] printf_l_l Jine_20_c, _event_occured, _108_main_a, _108_main_b. _108_main_c; 

always @(posedge clock) 
begin 

if (run_on_event) 

_event_occured = 16*dl; 
if (reset) 
_event_occured = I6'd0; 

end 

always @(posedge clock) 
begin 

if (nin_main) 

begin 

_108_main_a = scanf_0__l Jine_16„a; 
_108_main_b = scanf_0_2_line_16_b; 

_108_main_c = Cevent_occured ? C.108_main_a + _108„niain_b) : 

C108_main„a - _108_niain_b)); 
printf_l__l Jine_20_c = _108_main_c; 
end 
end 



CTdmodule 



F/G.- 12B 



CLEV-1 




39/90 

#include <sidio.h> 

int event_occured = 0; 
#pragma asynchronous on^event 
void on_eveni 0 

( 

event_occured = 1 ; 

) 

void main 0 

{ 

im a, b, c; 

scanf ("%d%d",&a,&b); 
c = event_occured ? a + b : a - b; 
primf("%d^". c); 

^ F/G.- 13A 



module Even t„as(clock jeset »scanf _0_1 Jine_l 6_a,scanf_0__2 J ine_ 16_b»prinlf_ 1 _ 1 Jine_20_c , 

run_on_event^n„main); 
input clock, reset, run_on_event, run_main; 

input [15:0] scanf _0_1 Jine_l6_a, scanf_0_2Jine_I6_b; 
output [15:0] printf_l_l_line_20_c; 

reg [15:0] printf_l_l Jine_20_c, _event_occured, _108_main_a, _108„main_b, _I08_main_c; 

always @(posedge run_on_event) 
begin 

if (reset) 
_event_occured = 16'd0; 

else 

_event„occured = 16'dl; 

end 

always @(posedge clock) 
begin 

if (run_main) 

begin 

_108_main„a = scanf_0_l_line_16_a; 
_108_main_b = scanf_0_2_line„16_b; 

_108_main_c = (_event_occured ? C108„main_a + _108„main_b) : 

C_108_main_a • _108_main_b)); 
printf_l_ljine_20„c = _108_main_c; 
end 
end 

endmodule 
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int fund (unsigned n) 
( 

unsigned i, result = 0; 

for (i = 0; i <= n; i++) 
result += i; 

return result; 

) 

int func2 (unsigned n) 
{ 

unsigned i, result = 0; 

for (i = 0; i <= n; i++) 
result += i; 

return result; 

^ FIG..14A 



module Sum (clock, reset, result fund, param fund n, run fund, ready fund, result func2, 

param func2 n, run func2, ready_func2 ); 

input clock, resets run func 1 , run func2; 

input [15:0] param fund ^n, param_func2 ^n; 

output ready func 1 , ready ,func2: 

output [15:0] result fund, result func2; 

reg ready func 1 , ready f unc2; 

reg [1:0] statel, state2; 

reg [15:0] result fund, result func2, s_2_fund_i, s_2_funcl_resuli, s_2_func2J, 

s_2_f unc2_result; ; 
always @(posedge clock) 
begin 
if (reset) 

statel = 0; 
else 
begin 
case (statel) 
0: begin 

if (run fund) 

begin 

ready fund =0; 

s_2„funcl_result = 16*d0; 
s_2_funclj = 16'd0; 
statel = 1; 
end 
end 
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1: statel = (s_2_funcl_i <= param_funcl_n) ? 2 : 3; 

s„2 Juncl.result = (s_2_funcl_resuit + s_2_funclj); 
s_2_funcl J = (s_2_funcl_i + 16'dl); 
statel = 1; 
end 

3: begin 

result fund = s_2Juncl„result; 

ready fund = 1; 

statel = 0; 
end 

endcase 
end 
end 

always @(posedge clock) 
begin 
if (reset) 

siate2 = 0; 
else 
begin 

case (siate2) 
0: begin 

if (run func2) 

begin 

ready func2 = 0; 

s_2„func2_result = 16'd0; 
s_2_func2J = 16'd0; 
state2 = 1; 
end 
end 

1: state2 = (s_2_func2_i <= param_func2_n) ? 2 : 3; 

2: begin . 
s_2_func2_result = (s_2 Junc2_result + s_2 Junc2_i 
s_2_func2J = (s_2_func2J + 16*dl); 
state2 = 1; 

end 

3: begin 

result func2 = s_2_func2_result; 

ready func2 = 1; 

state2 = 0; 
end 

endcase 
end 
end 

endmodule 
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#include <stdio,h> 
#include <sidarg.h> 

/* Returns the average of a variable list of integers. */ 

static int average (int first, ,..) 
{ 

int count = 0, sum = 0, i = first; 
vajisi marker; 

va_start (marker, first); /* Initialize variable arguments. */ 

while (i != -1) 
{ 

sum +- i; 
couni++; 

i = va_arg (marker, int); 

} 

va_end (marker); /* Reset variable arguments. */ 

return sum ? (sum / count) : 0; 

} 

void main 0 
{ 

/* Call with 3 integers (-1 is used as terminator). */ 
printf ("Average is: %dNn'\ average (2, 3, 4, -1)); 

/* Call with 4 integers. */ 

printf ("Average is: %clsn", average (5, 7, 9, 1 1, -1)); 

/* Call with just -1 terminator. */ 
printf ("Average is: %dNn", average (-1)); 

} 

FIG.^ISA 



CLEV-1 



43/90 

"define _average_first 5'hl 

module udivmodl6 (a, b, div, mod); 

input [15:0] a. b; 

ouq)ut [15:0] div, mod; 

reg [15:01 div, mod, paO, pal . pa2, pa3, pa4. pa5, pa6, pa7. pa8, pa9, palO, 

pall, pal2, pal3, pal4, pal5, pal6, shbO; 

reg [16:0] shbl; 

reg [17:0] shb2; 

reg [18:0] shb3; 

reg [19:0] shb4; 

reg [20:0] shb5; 

reg [21:0] shb6; 

reg [22:0] shb7; 

reg [23:0] shb8; 

reg [24:0] shb9; 

reg [25:0] shblO; 

reg [26:0] shbll 

reg [27:0] shbl2 

reg [28:0] shbl3 

reg [29:0] shbl4 

reg [30:0] shbl5 

always @(a or b) 
begin 
paO = a; 

shbl5 = b « 15; 
div [15] = paO >= shbl5; 
pal = div [15] ? paO - shbl5 : paO; 

shbl4 = b « 14; 
div [14] = pal >= shbl4; 
pa2 = div [14] ? pal - shbl4 : pal; 

shbl3 = b « 13; 
div [13] = pa2 >= shbl3; 
pa3 = div [13] ? pa2 - shbl3 : pa2; 

shbl2 = b « 12; 
div [12] = pa3 >= shbl2; 
pa4 = div [12] ? pa3 - shbl2 : pa3; 

shbll =b«ll; 
div [11] = pa4>= shbll; 
pa5 = div [11] ?pa4- shbll :pa4; 

shblO = b « 10; 
div [10] = pa5 >= shblO; 
pa6 = div [10] ? pa5 - shblO : pa5; 

shb9 = b « 9; 
div [ 9] = pa6 >= shb9; 
pa7 = div [9] ? pa6 - shb9 : pa6; 
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shb8 = b « 8; 

div [ 8] = pa7 >= shb8; 

pa8 = div [8] ? pa7 - shb8 : pa7; 

shb7 = b « 7; 

div [ 7] = pa8 >= shb7; 

pa9 = div [7] ? pa8 - shb7 : pa8; 

shb6 = b « 6; 

div [ 6] = pa9 >= shb6; 

palO = div [6] ? pa9 - shb6 : pa9; 

shb5 ^ b « 5; 

div [ 5] = palO >= shb5; 

pall = div [5] ? palO - shb5 : palO; 

shb4 = b « 4 ; 

div [4] = pall >= shb4; 

pal2 = div [4] ? pall - shb4 : pall; 

shb3 = b « 3; 

div [ 3] = pal2 >= shb3; 

pal3 = div [3] ? pal2 - shb3 : pal2; 

shb2 = b « 2; 

div [ 2] = pal3 >= shb2; 

pal4 = div [2] ? pal3 - shb2 : pal3; 

shbl =b«l; 

div [ 1] = pal4 >= shbl; 

pais = div [1] ? pal4 - shbl : pal4; 

shbO = b « 0; 

div [ 0] = pais >= shbO; 

pal6 = div [0] ? palS - shbO : palS; 

mod = pal6; 
end 
oidmodule 

module sdivmodl6 (a, b, div, mod); 

input [15:0] a, b; 

output [15:0] div, mod; 

wire [15:0] ua = a [15] ? - a : a; 

wire [15:0] ub = b [15] ? - b : b; 

wire [15:0] udiv, umod; 

udivmodl6 udivmod (ua, ub, udiv, umod); 

wire [15:0] div = (a [IS] != b [15]) ? - udiv : udiv; 

wire [15:0] mod = a [15] ? - umod : umod; 
endmodule 
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module RAM32X1 (O, D, WE, A4, A3, A2, Al, AO) 
/* synthesis black_box xc_alias="RAM" */ ; 



output O; 

input D, WE, A4, A3, A2, Al, AO; 

reg[31:0] d; 

wire [4:0] A = { A4, A3, A2, Al, AO ); 



assign O = d [A]; 
always @(A or D or WE) 
if (WE) 
d [A] = D; 
endmodule 

module RAM32xl (a, d, o, we); 
input d, we; 

input [4:0] a; 
output o; 

RAM32X1 RAM32X1 (o, d, we, a [4], a [3], a [2], a [1], a [0]) 
endmodule 

module RAM32xl6 (a, d, o, we); 
input we; 
input [ 4:0] a; 
input [15:0] d; 
output [15:0] o; 

RAM32X1 UO (a, d ( 0], o [ 0], we); 
RAM32X1 Ul (a, d [ 1], o [ 1], we); 
RAM32xl U2 (a, d [ 2], o [ 2], we); 
RAM32xl U3 (a, d [ 3], o [ 3], we); 
RAM32xl U4 (a, d [ 4], o [ 4]. we); 
RAM32xl U5 (a, d [ 5], o [ 5]. we); 
RAM32xl U6 (a, d [ 6], o [ 6], we); 
RAM32xl U7 (a, d [ 7], o [ 7], we); 
RAM32xl U8 (a, d [ 8], o [ 8], we); 
RAM32xl U9 (a, d [ 9], o [ 9], we); 
RAM32xl UIO (a, d [10], o [10], we); 
RAM32X1 Ull {a,d[ll],o[ll], we); 
RAM32X1 U12 (a, d [12], o [12], we); 
RAM32xl U13 (a, d [13], o [13], we); 
RAM32xl U14 (a, d [14], o [14], we); 
RAM32xl U15 (a, d [15], o [15], we); 
endmodule 

module RAM18xl6 (a, d, o, we); 

input we; 

input [4:0] a; 

input [15:0] d; 

ou^ui [15:0] o; 

RAM32xl6 U (a, d, o, we); 
endmodule 



F/G._ 15B3 



CLEV-1 



+ 

46/90 

moduie StdArg (clock, reset, printf_l_l_line_42, printf_2_l Jine_45, printf_3_l_line_48, 
riin_main, ready_main ); 
input clock, reset, run_main; 

output ready_main; 

output [15:0] printf_l_ljine_42, printf„2_ljine_45, printf__3_ljine_48 

reg ready„main, we; 

reg [ 4:0] state, a, retum_state_average; 

reg [15:0] printf_l_l Jine_42, printf_2_l_line_45, printf_3_l Jine_48, divmod_a, divmod_b. 
d, result_average, _108_average_count, _108_average„sum, _108_averageJ, 
„108^average_marker, _1_16, «3_16, _4,16, _.5^16, ,6„16, „7_16, _8_16, 

,9,16, _10_16, _11_16, _12_16, _13_16, _14_16; 

wire [15:0] div^result, o; 

sdivmodl6 sdivmod (divmod_a, divmod_b» div_result, ); 

RAM18xl6 m (a, d, o, we); 
parameter _average = 1 ; 

always @(posedge clock) 
begin 
if (reset) 
begin 

we = 0; 

state = 0; 
end 
else 
begin 

case (state) 

0: begin 

if (run_main) 
begin 

ready_main = 0; 

.5.16 = 16'd2; 

a = '_average_first; 

d = _5_16; 

we = 1; 

state = 11; 
end 
end 

.average: begin 

_108_average_count = IffdO; 

_108„average_sum = 16'd0; 

a = '_average_first; 

stale = 5; 
end 

5: begin 
,1,16 = o; 

_108_averageJ = _1_16; 
_108_average_marker = ("_average_first + 16'dl); 
state = 2; 
end 



2: state = C108_averageJ != -16'dl) ? 3 : 4; 
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3: begin 

_108_average_sum = (_108__average_sum + _108_average_i) 
_108_average_count = C_108_average_count + 16'dl); 
_108_average_marker= (_108_average_marker + 16*dl); 
a ^ (_108_average_marker - 16'dl); 
state = 6; 
end 

6: begin 
_2_16 = o; 

_108_average_i = _2_16; 
state = 2; 
end 

4: begin 

_108_average_niarker= 16'dO; 

state = _108_average_sum ? 7 : 8; 
end 

7: begin 

divmod_a = _108_average_sum; 

divmod_b = _108_average_count; 
Slate = 10; 
end 

10: begin 

_4_16 = div^result; 

,3_16 = _4_16; 

state = 9; 
end 

8: begin 

_3_16 = l&dO; 

state = 9; 
end 

9: begin 

result_average = _3-16; 

slate = retum_state_average; 
end 

11: begin 

we = 0; 

.6.16 = 16'd3; 
a = C_average_first + Iffdl); 

d = _6_16; 

we = 1; 

state = 12; 
end 
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12: begin 
we = 0; 

_7_16 = 16'd4; 
a = C_average_first + I6'd2); 
d = „7_16; 
we = I; 
state 13; 
end 

13: begin 
we = 0; 

,8_16 = -16'dl; 
a = C_average_rirst + 16'd3); 
d = .8,16; 
we = 1; 
state = 14; 
end 

14: begin 
we = 0; 

retum_state_average =15; 
state = _average; 
end 

15: begin 

printf_l_l_line_42 = result_average; 
// User Verilog code 

Swrite ("Average is: %d\n*', prinif_l_l_line_42); 
// End of user Verilog code 
_9,16 = 16'd5; 
a = "_average_first; 
d = _9_16; 
we = 1; 
state = 16; 
end 

16: begin 
we = 0; 

,10_16 = 16'd7; 
a = C_average_firsi + 16'dl); 
d = _10_16; 
we= 1; 
state = 17; 
end 

17: begin 
we = 0; 

.11_16= 16 d9; 
a = C_average_first + 16'd2); 
d = _ll_16; 
we = 1; 
state = 18; 
end 
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18: begin 
we = 0; 

_12_16= 16'dll; 
a = C_average_first + 16'(13); 
d = J2_16; 
we = 1; 
state = 19; 
end 

19: begin 
we = 0; 

_13_16= -16*dl; 
a = C-average_first + 16'd4); 
d = _13_16; 
we = 1; 
state = 20; 
end 

20: begin 
we=:0; 

retum_state_average = 21; 
Slate = ^average; 
end 

21: begin 
printf_2_l_line_45 = result^average; 
// User Verilog code 

$write ("Average is: %dSn", printf_2_l Jine_45); 
// End of user Verilog code 

_14_16= -16^dl; 
a = ^_average__first; 

d = _14_16; 

we = 1; 

state = 22; 
end 

22: begin 
we = 0; 

reium„state_average = 23; 
state = ^average; 
end 

23: begin 
printf_3_l Jine_48 = result_average; 
// User Verilog code 

$write ("Average is: %d^'\ primf_3_l Jine_48); 
// End of user Verilog code 
ready_main = 1; 
state = 0; 
end 

default: ; 
endcase 
end 
end 
endmodule 
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#include <stdio.h> 

static void MoveRing (int nRings» int Towerl» int Tower2, int Tower3) 
{ 

if (nRings == 0) 
retuni; 

MoveRing (nRings - 1, Towerl. Tower3, Tower2); 
printf ("%d -> %dSn", Towerl, To wer2); 
MoveRing (nRings - 1 , Tower3, Tower2, Towerl); 

) 

void Hanoi (int nRings) 

{ 

MoveRing (nRings, 1, 2, 3); 

) 

#ifndef _S YNETR Y_ 

void main (void) 

{ 

printf ("Five rings Hanoi TowersNn"); 
Hanoi (5); 

) 

#endif 
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^define reciirsion_siack 8'hl 

module Hanoi (clock, reset, a, d, o, we, prinLf_l_l_line„22_Towerl, prinif_l_2_line_22_Tower2, 
param_Hanoi_nRings, run_Hanoi, ready^Hanoi ); 
input clock, reset, run_Hanoi; 

input [ 7:0] o, param_Hanoi_nRings; 
output we, ready_Hanoi; 

output [7:0] a,d,printf_l_lJine_22_Towerl,printf_l_2Jine_22_Tower2; 

reg we, ready.Hanoi; 

reg [ 4:0] state, retum_state_MoveRing; 

reg [ 7:0] a, d, printf_l_lJine_22_Towerl , printf_l_2Jine_22_Tower2, recursion_stack_pointer, 
_MoveRing_nRings, _MoveRing_Towerl, _MoveRing_Tower2, _MoveRing_Tower3, 
,1_8, „2„8, _3_8, _4_8, ^5_8, _6„8, _7_8, _8_8, _9_8, _10_8, .1 1„8, ,12_8; 

parameter _MoveRing = 1; 

always @(posedge clock) 
begin 

if (reset) 

begin 
we -0; 

recursion_stack_pointer = >ecursion_stack; 

state = 0; 
end 
else 
begin 

case (state) 

0: begin 

if (run_Hanoi) 
begin 
ready_Hanoi = 0; 

„MoveRing_nRings = param_Hanoi_nRings; 
_MoveRing_Towerl = 8'dl; 
_MoveRing_Tower2 = 8'd2; 
_MoveRing_Tower3 = S'dS; 
retum_state_MoveRing = 26; 
state = _MoveRing; 
end 
end 

_MoveRing: state = CMoveRing_nRings == 8'dO) ? 3 : 2; 
2; begin 

_1_8 ^ (_MoveRing_nRings - 8'dl); 
-2_8 = _MoveRing_Towerl; 
-3-8 - _MoveRing_Tower3; 
_4_8 = _MoveRing_Tower2; 
a = recursion_stack_pointer; 
d = _MoveRing_nRings; 
we = 1; 
state = 4; 
end 
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4: begin 
we = 0; 

a = recursion_siack_pointer + 1 ; 
d = _MoveRing_Towerl; 

we = 1; 

stale = 5; 
end 

5: begin 
we = 0; 

a = recursion_stack_pointer + 2; 
d = _MoveRing_Tower2; 
we= 1; 
state = 6; 
end 

6: begin 
we = 0; 

a = recursion_stack_pointer + 3; 
d = _MoveRing_Tower3; 
we= 1; 
state = 7; 
end 

7: begin 
we = 0; 

_9_8 = retum_state_MoveRing; 
a = recursion_stack_pointer + 4; 
d = _9_8; 
we = I; 
state = 8; 
end 

8: begin 
we = 0; 

recursion_stack_pointer = recursion_stack_pointer + 5; 
__MoveRing_nRings = _1_8; 
_MoveRing_Towerl - _2_8; 
_MoveRing_Tower2 = _3_8; 
_MoveRing_Tower3 = _4_8; 
retum_staie_MoveRing = 9; 
state = _MoveRing; 
end 

9: begin 

recursion_stack_pointer = recursion__stack_pointer - 5; 
a = recursion„siack_pointer; 
state = 10; 
end 

10: begin 

_MoveRing_nRings = o; 
a = reciirsion_stack„pointer + 1; 
state =11; 
end 
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11: begin 

_MoveRing_Towerl = o; 

a = recursion_stack_pointer + 2; 

state = 12; 
end 

12: begin 

_MoveRing_Tower2 - o; 

a = recursion„stack_pointer + 3; 

state = 13; 
end 

13: begin 

_MoveRing„Tower3 = o; 

a = recursion_stack_pointer + 4; 

state = 14; 
end 

14: begin 
_10_8 = o; 

retum„state_MoveRing = _10_8; 
printf_l_l Jine_22_Towerl = _MoveRing_Towerl; 
printf_l_2Jine_22_Tower2 = _MoveRing_Tower2; 
// User Verilog code 

Swrite ("%d -> %dSn\ pnntf_l_l Jine„22_Towerl, printf_l_2Jine_22_Tower2); 
// End of user Verilog code 

_5_8 = CMoveRing_nRings - 8'dl); 

„6_8 = _MoveRing_Tower3; 

„7_8 = _MoveRing_Tower2; 

_8_8 = _MoveRing_Towerl; 
a = recursion_stack_pointer; 

d = _MoveRing_nRings; 

we = 1; 

state = 15; 
end 

15: begin 
we = 0; 

a = recursion__stack_poinier + 1; 
d = _MoveRing_Towerl; 
we = 1; 
Slate =16; 
end 

16: begin 

we = 0; 

a = recursion_stack_poinier + 2; 
d = _MoveRing„Tower2; 
we = 1; 
state = 17; 
end 
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17: begin 
we = 0; 

a = recursion_siack_pointer + 3; 
d = _MoveRing_Tower3; 
we = 1; 
Slate = 18; 
end 

18: begin 
we = 0; 

_1 1_8 = retum_state_MoveRing; 
a = recursion„stack_pointer + 4; 
d = _ll_8; 
we = 1; 
slate = 19; 
end 

19: begin 
we = 0; 

recursion_stack_pointer = recursion_slack_pointer + 5 
_MoveRing_nRings = _5_8; 
_MoveRing_Towerl = _6__8; 
_MoveRing_Tower2 = _7„8; 
_MoveRing_Tower3 = _8„8; 
retum_staie_MoveRing = 20; 
Slate = _MoveRing; 
end 

20: begin 

recursion_slack__pointer = recursion_stack_pointer - 5; 
a - recursion_stack_poinier; 
Slate = 21; 
end 

21: begin 

_MoveRing_nRings = o; 

a = reciirsion_stack_pointer + 1; 

state = 22; 
end 

22: begin 

_MoveRing_Towerl = o; 

a = recursion_stack_pointer + 2; 

state = 23; 
end 

23: begin 

_MoveRing„Tower2 = o; 

a = recursion_stack_pointer + 3; 

state = 24; 
end 
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24: begin 

_MoveRing„Tower3 = o; 

a = recursion_stack_pointer + 4; 

stale = 25; 
end 

25: begin 
„12_8 = o; 

retum_state_MoveRing = _12_8; 
state = 3; 
end 

3: state = retum_staie_MoveRing; 

26: begin 

ready_Hanoi = I ; 

state = 0; 
end 

default: ; 
endcase 
end 
end 

endmodule 
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#include <stdio.h> 

void f 1 0 
{ 

printf r%dSn", 1); 

) 

void f2 0 
{ 

printf ("%d\n", 2); 

) 

void main (n) 
{ 

void (* 0 0; 

f=n== 1 ?fl : f2; 

^ FIG.^17A 



module PtrFtn (clock, reset, printf_l_l_line_19, prinif_2_l Jinc_24, param_main_n, run_fl, ready _f I, 
nm_f2, ready„f2, nin_main. ready^main); 
input clock, reset, run„f 1 , run_f2, run_main; 

input [15:0] param_tnain_n; 
output readyj 1 , ready_f2, ready_main; 

output [15:0] printf_l_l Jine_19, prinif_2_l Jine_24; 
reg ready_f 1 , ready_f2, ready_main; 

reg [ 1 :01 state, retum_state_f 1 , reium_siate„f2; 
reg [15:0] printf_l_I Jine_l9, printf_2_ljine,24, _1 lO^niain^f; 
parameter _f 1 = 1 , _f2 = 2; 

always @(posedge clock) 
begin 

if (reset) 

begin 

printCl_lJine_19 = 0; 
printf_2_l_line„24 = 0; 
_110_main_f =0; 
ready .fl = 0; 

retum_staie_f 1 = 0; 
ready_f2 = 0; 

retum_state_f2 = 0; 
ready_main = 0; 
state = 0; 
end 
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else 
begin 

case (state) 

0: begin 
if (nin_f 1) 
begin 

ready_fl = 0; 

retum_state_f 1 = 0; 

state = _fl; 
end 

else if (run„f2) 
begin 

ready _f2 = 0; 

retiim„state_f2 = 0; 

state = _f2; 
end 

else if (run_main) 
begin 

ready.main = 0; 

_110_main_f = ((param_main_n == 16^dl) ? _fl : 
state = _1 10_main_f; 
end 
end 

_fl: begin 

printf_l_ljine„l9 = 16'dl; 
// User Verilog code 
Swrite r%dvn'\ printf_l_l Jine_19); 
// End of user Verilog code 
ready _fl = 1; 
state = retum_state_f 1 ; 
end 

J2: begin 

printf_2_ljine_24 = lffd2; 

// User Verilog code 

Swrite ("%d^\ printf_2_l_line„24); 

// End of user Verilog code 

ready _f2= 1; 

state = retum_state_f2; 
end 

3: begin 

ready _main = 1; 

state = 0; 
end 

default: ; 
endcase 
end 
end 



endmodule 



FIG..17B2 



58/90 



int sum (int array [], int size) 
[ 

int i, sum = 0; 

for (i = 0; i < size; i ++) 
sum += array [i]; 

return sum; 

) 

int main 0 
( 

int i; 

int array [10]; 

int size = sizeof (array) / sizeof (*array); 

array [0] = 1; 
array [1] = 2; 
array [2] = 3; 

for (i = 3; i < size; i++) 
array [i] = i * 2; 

return sum (array, size); 

) 
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// Global macro definitions 
-define UNTT.MAIN I6'h5000 
■ define UNIT.SIZE 16 

define ADDRESS_SIZE 16 
-define DATA_SIZE 32 
// Local macro definitions 
'define STATE_S1ZE 5 
- define WORD_SI2E 32 
-define WORD_MEMORY_SIZE 15 

define MEMORY.SIZE 480 

// External functions defined in the translated C file 

-define _sum 32'h50000001 

"define of fset_sum 1 

-define var_sum memory [I] 

-define state_sum 5'dl 

-defme _sum_array 32'h50000002 

-define offset_sum_array 2 

-define var_sum_array memory [2] 

-define _sum_size 32'h50000003 

-define offsei_sum_size 3 

-define var__sum_size memory [3] 

-define _main 32'h50000004 
define offset_main 4 

-define var_main memory [4] 

define staie_main 5'd2 

// Static, auto and register variables located in module's internal memory 
- define main_3_main_array 32'h50000005 
-define offset_main_3_main_array 5 

module main (reset, clock, master, in.unit, in address. - dam. in read. in_call, out.unit, 

out_address,out_data,out_read,out_call), 

input reset, clock, in_call. in_read; 

output master, out_read, out_call; 

reg master, out_read, out_call; 

input rUNlT_SlZE - 1 : 01 in_unit; 
input r ADDRESS_SIZE - 1 : 01 in_address; 
input [-DATA_SIZE -1:0] in_data; 

output rUNlT.SIZE -1:0] out_unit; 
output [• ADDRESS.SIZE -1:0] out_address; 
output [-DATA.SIZE -1:0] oul_data; 
reg rUNIT_SlZE -1:0] out_unit; 
reg rADDRESS_SIZE - 1 : 01 out.address; 
reg [-DATA_SIZE -1:0] out_daia; 

// Module data 

reg rSTATE_SIZE -1:0] slate; 

~<T r IT ATE SIZE -1:0] retum_state; 

rS rWoSZsl^ - 1 : 01 memory [0 : -WORD_MEMORY_SIZE - 1]; 
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// Predefined stales parameter [4:0] 

init = 5'dO, 

idle = 5'd20, 

read = 5'd21, 

write = 5'd22, 

iniercaJl = 5*d23, 

intercall2 = 5'd24, 

iniercall3 = 5*d25, 

answer = 5'd26, 

answer2 = 5'd27; 
// Function result registers 

reg [31:0] result sum, result main; 

// Static, auto and register variables located on registers 

reg [31:0] main_2_sum_i, main_2__sum_sum, main_3_iT^^J^Jt main_3_main_si2e; 
// Temporary registers 

reg [31 : 0] _6_32, _8_32, _9_32, _11_32; reg [ 0 : 0] J? J, _10_1; 
always @(posedge reset or posedge clock) // Clock cycle 
begin 

if (reset) 
begin 

master = 0; 
state = idle; 
end 
else 
begin 
case (state) 
idle: begin 
if (in^unit = ^ UNIT^MAIN) 
begin 

if (in_call) 
begin 

out_unit = in_unit; 
out_address = in_address; 
out.data = answer; 
retum_state = in_address; 
state = write; 

end 
else 
begin 

out_unit = in_unit; 
out_address = in_address; 
retum_staie = answer; 
if (in__read) 

state = read; 
else 
begin 
oui_data = in_data; 
state = write; 
end 

end 
end 
end 
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iniL* begin 

master = 1 ; 

state = answer; 
end 

^ state sum; begin 

main_2_suni_sum = 32'dO; 

main_2_sumj = 32'dO; 

state = ^STATE.SIZE'dl 1; 
end 

^STATE.SIZE'dll: begin 

_6_32 = (main_2„sum_i - 'var sunn size); 

J J ^J>32 [31]== rbl; 

state = _7_1 ? ^STATE,SIZFdl2 : ^STATE_SlZFdl3; 
end 

^STATE_SIZE'dl2: begin 

{ out_unil, out_address } = (War sum_array + niain_2_sumj); 

retum^siate = STATE_SIZE'dl7; 

state = read; 
end 

^STATE_SIZE^dl7: begin 
_8„32 = out^daia; 

main_2_sum_sum = (main_2_sum„sum + _8„32); 
main_2_sum_i = (main_2_sum_i + 32'dl); 
state = ^STATE^SIZE'dll; 
end 

^STATE_.SIZFdl3: begin 

result sum = main_2„sum_sum; 

{ out^unii, oui^address ) = ^_sum; 

out^data = result sum; 

master = 1; 

state = >ar sum; 

end 

'state main: begin 

main_3_main_size = 32'dlO; 

memory rmain_3_main_array - CUNIT_MAIN « ^ADDRESS,SIZE)] = 32*dl; 
memory [Cmain_3_main_arTay + 32'dl) - CUNIT.MAIN « ^ ADDRESS_SIZE)] = 32'd2 
memory [Cmain,3_main„arTay + 32'd2) - CUNIT.MAIN « ^ ADDRESS_SI2E)1 = 32'd3 

main3_rnain_i = 32'd3; 

state = 'STATE_SIZE'dl4; 
end 

^STATE^SIZE'dM: begin 

_9_32 = (main_3_main_i - main_3_main_size); 
-10_1=_9_32 [31] ==rbl; 

state = ,10_1 ? ^STATE_SIZFdl5 : ^STATE_SIZE'dl6; 
end 
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^STATE„SIZFdl5: begin 

_11_32 = (nnain_3_main_i « I'dl); 

{ out„unit, oui_address } = ('main„3_main_array + main_3_main_i) 
out_daia = _ll_32; 
retum_siate = ^STATE_SIZE*dl8; 
state = write; 
end 

^STATE^SIZFdlS: begin 

main_3_niain_i = (niain_3_main_i + 32*dl); 

state = ^STATE.SIZE'dl4; 
end 

^STATE_SIZFdl6: begin 

War sum array = ^main_3_main_array; 

War sum size= main_3_main_size; 

>ar_sum = ^STATE_SIZE^dl9; 

state = 'stale sum; 

end 

^STATE_SIZE'dl9: begin 

result main = result sum; 

{ oul^unit, out_address ) = '_main; 

out_data = result main; 

master = 1; 

state = War main; 

end 

read: begin 

if (out^unil != 'UNIT.MAIN) 
begin 

out_read = 1; 

out„call = 0; 

master = 1; 

state' = intercall; 
end 
else 
begin 

out_data = memory [out_address]; 
if (retum_state == answer) 

master = 1 ; 
state = retum_state; 
end 
end 
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write: begin 

if (oul_unil != ^UNIT.MAIN) 
begin 

out_read = 0; 

out_call = 0; 

master = 1; 

Slate = intercall; 
end 
else 
begin 

memory [out_address] = out_daia; 
if (retum_state == answer) 

master = 1; 
state = retum_state; 
end 
end 

intercall: begin 

state = intercall2; 
end 

intercall2: begin 

master = 0; 

state = intercallS; 
end 

intercall3: begin 
if ({ in_unit, in_address } == { out.unit, out_address )) 

begin 

out_data = in_data; 

slate = retum^siate; 
end 
end 

answer: begin 

state = answerZ; 
end 

answer!: begin 

master = 0; 

state = idle; 
end 

default: 

state = idle; 
endcase 
end 
end 
CTdmodule 
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int data_in; 
ini outl; 
int out2; 
int data_out; 

void pipeline_stage_l 0 
{ 

while (datajn != 0) 
outl = daiajn + 1; 

if (datajn == 1) 
while (daiajn == 1) 
outl = 2; 

) 

void pipeline_stage_2 0 
( 

while (outl = 0) 
out2 = 0; 

while (outl != 0) 
out2 = outl + 1; 

} 

void pipeline_siage_3 0 
{ 

if (out2 == 1) 

while (out2 === 1) 
data_out = 2; 

while (out2 != 0) 
data_out = out2 + 1 ; 

) 

#ifndef_SYNETRY_ 

#iiiclude <stdio.h> 

void main 0 
{ 

for (;;) 
( 

scanf ("%d", & daiajn); 
pipeline_stage_l 0; 
pipeline_stage_2 (); 
pipeline_stage_3 0; 
printf ("%d", data_out); 

) 

} 

#OTdif 

FIG.-19A 
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module Pipeiine(clock/eset,_data Jn,_da!a_ouijrun jpipeiine_stage_l /eady_pipeline_slage_l , 
runj)ipeline_siage_2^eady_pipeiine_smge_2/unj5ipeline_stage3,ready_pip^ 
input clock, reset, run_j)ipeline_suige_l , run_pipeline_stage_2, run_pipeline_stage_3; 

input [15:0] _datajn; 

output ready _pipeline_stage„l , ready _pipeline_stage_2, ready_pipeline_stage_3; 

output [15:0] _data„out; 

reg ready_pipeiine_stage_l , ready _pipeline_stage_2, ready_pipeline_stage_3; 

reg [ 2:0] state 1 , slate2, stateB; 
reg [15:0] _data_out, _outl, _out2; 

always @(posedge clock) 
begin 
if (reset) 

statel = 0; 
else 
begin 

case (statel) 

0: begin 

if (run_pipeline_stage_i) 
begin 

ready„pipeline_stage_l - 0; 
statel = 1; 
end 
end 

1: statel = (_datajn != 16*dQ) ? 2 : 3; 

2: begin 

_outl = (_datajn + 16'dl); 

statel = 1; 
end 

3: statel = (_datajn 
4: statel = (_data„in 

5: begin 

_outl = 16'd2; 

statel = 4; 
end 

6: begin 

ready_pipeline„stage_i = 1; 

statel = 0; 
end 

default: ; 



== 16'dl) ? 4 : 6; 
== 16'dl) ? 5 : 6; 



endcase 
end 
end 
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always @(posedge clock) 
begin 
if (reset) 

staie2 = 0; 
else 
begin 

case (staie2) 

0: begin 

if (run_pipeline_stage_2) 

begin 

ready_pipeline_stage_2 = 0; 
state2 = 1; 
end 
end 

l:siaie2 = (_outl 16'd0) ? 2 : 3; 

2: begin 

,out2 = IffdO; 

state2 = 1; 
end 

3: slate2 = (_outl != 16'd0) ? 4 : 5; 

4: begin 

_out2 = C-Outl + 16'dl); 

state2 = 3; 
end 

5: begin 
ready _pipeline_slage„2 = 1; 

state2 = 0; 

end 

default: ; 

endcase 
end 
end 
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always @(posedge clock) 
begin 
if (reset) 

state3 = 0; 
else 
begin 

case (state3) 

0: begin 

if (run_pipeline„stage_3) 

begin 

ready_pipeline„stage_3 = 0; 
state3 = Loui2 == 16'dl) ? 1 : 3; 
end 
end 

l:state3 = Loul2==16yi)?2:3; 

2: begin 
_data_out = 16'd2; 
state3 = 1; 

end 

3: siate3 = (_out2 != 16'd0) ? 4 : 5; 

4: begin 

_data_out = (_out2 + 16'dl); 

state3 = 3; 
end 

5: begin 
ready _pipeline_stage_3 = 1; 

siate3 = 0; 

end 

default: ; 

endcase 
end 
end 

endmodule 

FIG.^19B3 



Datajn 



Stage_1 



Out1 



Stage_2 



Out2 



Stage_3 



Data_out 



FIG.^19C 



CLEV-1 



+ 



68/90 

#include <sldio.h> 

typedef enum { true = 1 , false = 0 } bool; 

void main 0 
{ 

bool bLightlsOn = true; 



prir^tf ("Lightc - C program working on APS-X84 FPG A lest carcN,"); 

for (;;) 
I 

int counter; 
printf 

^ "Enter the number of clock ticks" 
•• to wail before the light change: " 

); 

scanf ("%d", & counter); 

if (counter < 0) 
counter = 0; 

while (counter - != 0) 
printf rWaiung...Nn"); 

bLighUsOn = ! bLightlsOn; 

printf ("Light is: %cr\n", bLighUsOn); 

) 

^ FIG.^20A 
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module Light (clock, rcset» scanf_0„l„line_33_counter, prinif__4_l_line_43_bLighiIsOn, 
run^main, ready _main ); 
input clock, reset, run_inain; 

input [ 7:0] scanCO_l Jine_33„counter; 

output ready_main; 

output [ 1:0] printf_4_l_line_43_bLighasOn; 

rcg ready_main, ; 

reg [ 1:0] printf_4_l Jine_43_bLightIsOn, _3_main_bLighiIsOn, 3JZ; 

reg [ 2:0] state; 

reg [ 7:0] _4_main_counter, _2_S; 

always @(posedge cJock) 
begin 
if (reset) 

state = 0; 
else 
begin 
case (state) 

0: begin 

if (run^main) 
begin 
ready _niain = 0; 
.3_main3LightIsOn = 2'dl; 
// User Verilog code 

Swrite ("Lightx - C program working on APS-X84 FPGA test cardSn"); 
// End of user Verilog code 
state = 1; 
end 
end 

1: begin 
// User Verilog code 

Swrite ("Enter the number of clock ticks to wait before the light change: "); 

// End of user Verilog code 

_4__main_counter = scanf_0_l Jine__33_counter; 

_1_1 = _4_main_counter [7] == I'bl; 

_4_main_counter = 8'dO; 
state = 2; 
end 

2: begin 

_2_8 = _4_main„counter; 

„4_main„counter = (J1J8 - 8'dl); 

state = (.2^8 != 8'dO) ? 3 : 4; 
end 
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3: begin 

// User Verilog code 

Swrite ("Waiting.. .\n"); 

// End of user Verilog code 

state - 2; 
end 



4: begin 

_3_2 = (! _3„main.bLightIsOn); 
,3_main_bLighasOn = _3„2; 

printf_4_l Jine_43_bLightIsOn = _3_main_bLightIsOn; 
// User Verilog code 

Swrite ("Light is: %d\n'\ printL4_l Jine_43„bLightlsOn); 
// End of user Verilog code 
state = 1; 
end 



default: ; 



endcase 
end 
end 



endmodule 



// APSX84.V - Verilog wrapper module which instantiates module Light.v. 

// This design is intended to run on APS-X84 board. 

// 



module APSX84 ( clock, clock_enable, reset, data, LCD); 



input clock /* synthesis xcJoc=P24 */ ; 

input clock^enable /* synthesis xcJoc=P3 */ ; 

input reset /* synthesis xcJoc=P4 */ ; 

input [5:0] data /* synthesis xc_loc="P10J^9JP8,P7,P6,P5" */ ; 

output LCD /* synthesis xcJoc=P35 */ ; 



wire intemal_clock = clock & clock_enable; 

wire [7:0] dataS = { data, 2*b0 ); 

wire [L-O] LCD2; 

wire LCD = LCD2 [0]; 

wire run_main = 1; 



Light Light ( intemaI_clock, reset, dataS, LCD2, run_main,); 



endmodule 
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int sum (int n) 

{ 

int i, sum = 0; 

for (i = 0; i != n; i-M-) 
sum += i; 

return sum; 



FIG..21A 



module Sum (clock, reset, result_sum, param_sum_n, run sum, ready sum ) 

input clock, reset, run ^sum; 

input [15:0] param sum n; 

output ready_sum; 

output [15:0] result sum; 

reg ready sum; 

reg [ 1:0] state; 

reg [15:0] result sum, s_2_sumj, s„2_sum„sum; 

always @(posedge clock) 
begin 
if (reset) 

slate = 0; 
else 
begin 

case (state) 

0: begin 

if (run sum) 

begin 

ready sum = 0; 

s_2„sum_sum = 16*dO; 
s„2_sumj = 16'd0; 
state = 1; 
end 
end 

1: state = (s_2_sum„i != param sum n) ? 2 : 3; 

2: begin 

s_2_sum_sum = (s„2_sum_sum + s„2„sum J); 
s_2_sum_i = (s_2_sumj + 16'dl); 
state = 1; 
end 

3: begin 

result sum = s_2_sum_sum; 

ready sum = 1; 

state = 0; 
end 

default: ; 

endcase 
end 
end 
endmodule 
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library IEEE; 

use lEEE.STD_Logic_ll64.all; 
use IEEE.Numeric_Std.all; 



entity synetry_sum is 

port( clock :in stdjogic; 

reset ■ in boolean; 

run_sum : in boolean; 

param_sum_n : in integer range 0 to 65535, 

result_sum : out integer range 0 to 

ready.sum : oat boolean ); 
end entity synetry_sum; 

architecture RTL of synetry„sum is 
begin 

process_synetry.sum : process 

variable state : integer range 0 to 3; 
variable s_2_sumj : integer range 0 to 65535; 
variable s_2,sum_sum : integer range 0 to 65535. 

begin , , .i.. 

wait until clock'event and clock = l , 

if (reset) then 
state := 0; 
else 

case (state)is 
when 0 => 

if (run_sum)then 
ready _sum <= false; 
s_2_sum_sum := 0; 
s_2_sum_i := 0; 
state := I; 
end if; 
when 1 => 

if (s„2_sum J /= param_sum_n) then 

state := 2; 
else 

state := 3; 
end if; 

when 2 => ^ _ 

s_2_sum_sum := s_2_sum_sum + s_2_sum. 

sJ2„sumJ := s_2_sum_i + 1; 
state := 1; 
when 3 => 

result.sum <= s_2_sum_sum; 

ready _sum <= true; 
state := 0; 
end case; 
end if; 
wait; 

end process process_synetry_sum; 
end architecture RTL; 
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int read (int * p) 
{ 

retiim * p; 

) 

FIG.,22A 



module Read(clock4^eset^4»o,we^esulLi^d,param_read_p/un_re^ 

input clock, reset, run_read; 

input [3:0] o, param_read_p; 

output we, ready j*ead; 

output [ 3:0] a, d, result_read; 

reg we, ready_read, state; 

reg [ 3:0] a, d, result_read; 

always @(posedge clock) 
begin 
if (reset) 
begin 

we = 0; 

state = 0; 
end 
else 
begin 

case (state) 

0: begin 
if (run_read) 
begin 
ready _read = 0; 
a = param_read„p; 
state = 1; 
end 
end 

l:begin 
-1-4 = o; 

result_read = _l_A; 
ready_read= 1; 
state = 0; 
end 

default: ; 
endcase 
end 
end 
endmodule 
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void write (int * p, int d) 
{ 

* p = d; 

» FIG.,23A 



module Write(clock^eset,a4,o,we,param_write_p,param_write_d,run_wri 
input clock, reset, run_wriie; 

input [ 3:0] o, param_write_p, param_wriie_d; 
output we, ready_write; 

output [ 3:0] a, d; 
reg we, ready_write, state; 

reg [ 3:0] a, d; 

always @(posedge clock) 
begin 
if (reset) 
begin 

we = 0; 

Slate = 0; 
end 
else 
begin 

case (state) 



0:begin 

if (run_wriie) 
begin 
ready _write = 0; 
a = parani_write_p; 
d = param_write_d; 
we = 1; 
state = 1; 
end 
end 



l:begin 
we = 0; 

ready_write = 1; 
state = 0; 
end 



default: 



endcase 
end 
end 



endmodule 
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lypedef struct 

{ 

int a; 
inl b; 
) STRUCTURE: 

int read_member_b (STRUCTURE *p) 
{ 

return p -> b; 

^ FIG.^24A 



module Structl{clock4'eset,a,d.o,we^esult_read_member3>param_read_memte^^ 
run_read_member_b>ready_read_member_b); 
input clock, reset, run_read_member_b; 

input [ 3:0] o, parani_read_member_b_p; 
output we, ready_read_member_b; 

output [ 3:0] a, d, result_read_member_b; 
reg we, ready_read_member_b» state; 

reg [ 3:0] a, d, result_read_member_b, _1„4; 

always @(posedge clock) 
begin 
if (reset) 
begin 

we = 0; 

state = 0; 
end 
else 
begin 

case (state) 

Orbegin 
if (run_read_member_b) 
begin 

ready_read_niember_b = 0; 
a = (param_read_meniber_b_P + 4*dl); 
state = 1; 
end 
end 

l:begin 
_1_4 = o; 

result„read_member_b = _1_4; 
ready _read_niember_b = 1 ; 
state = 0; 
end 

default: ; 

endcase 
end 
end 

endmodule FIG 24B 
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typedef struct 
{ 

int a; 
inl b; 
) STRUCTURE; 

void write_meinber_b (STRUCTURE *p, int n) 
( 

p -> b = n; 

) F/G.-254 



module Struct2(clockjeseua,d,o,we,pai^_write_member_b_p>param_wri 
run_write_member_b^eady_write_member_b); 
input clock, reset, run_write_meinber_b; 

input [ 3:0] o, param_write_member_b_P, param_write_member_b_n; 
output we, ready_write„niember_b; 

output [ 3:0] a, d; 

reg we, ready_write_member_b, ready„write_member_b, state; 

reg [ 3:0] a, d; 

always @(posedge clock) 
begin 
if (reset) 
begin 

we = 0; 

state = 0; 
end 
else 
begin 

case (state) 

0:begin 

if (run_write_member_b) 
begin 

ready„write_member_b = 0; 
a = (param_write_member_b_P + 4'dl); 
d = param_write_member_b„n; 
we = 1; 
state = 1 ; 
end 
end 

l:begin 
we - 0; 

ready_write_meniber_b = 1; 
state = 0; 
end 

default: ; 

endcase 
end 
end 
OTdmodule 
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typedef struct 
{ 

int a; 
inl b; 
) STRUCTURE; 

STRUCTURE s; 

int read_member_b (void) 

{ 

return s.b; 

} FIG.^26A 



define „s Zhl 

module Slnjct4(clcx;k^esei,a4,o,we^suU_read_member3»nin_read_mem 
input clock, reset, run_read_member_b; 

input [ 3:0] o; 

output we, ready„read_member_b; 

output [1:0] a, d, result_read_member_b; 
reg we, ready_read_member„b. state; 

reg [1:0] a, d, result_read_member„b; 
reg [3:01 _1„4 ; 
always @(posedge clock) 
begin 

if (reset) 

begin 
we = 0; 
state = 0; 

end 

else 

begin 

case (state) 

0: begin 
if (run_read_member_b) 
begin 

ready _read_member_b = 0; 
a = C_s4.4'dl); 
state = 1; 
end 
end 

1: begin 
_1_4 = o; 

result„read_member_b = _1„4; 
ready_read_meniber_b = 1; 
state = 0; 
end 

default: ; 
endcase 
end 
end 

endmodule FIG.^26B 
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typedef struct 
( 

int a; 
int b; 
} STRUCTURE; 

STRUCTURE s; 

void write_nieinber_b (int n) 

{ 

s.b = n; 

^ F/G_27A 



define _s 2 hl 

module Struct5(clock4'eset,a4,o,we,param_write_meniber_b_n^n_w^ 
input clock, reset, run_wri te_member_b; 

input [ 3:0] param_wrile_member_b_n, o; 
output we, ready_wriie_member_b; 

output [ 1:0] a; 
output [3:0] d; 

rcg we, ready_write_member_b, stale; 

reg [ 1:0] a; 
reg [ 3:0] d; 
always @(posedge clock) 
begin 
if (reset) 
begin 
we = 0; 
state = 0; 
end 
else 
begin 

case (state) 
0: begin 

if (run_write_member_b) 
begin 

ready_write_member_b = 0; 
a = (^_s + 4'dl); 
d = param_wriie_men)ber_b_n; 
we= 1; 
state = 1; 
end 
end 
1: begin 
we = 0; 

ready_write_member_b = 1 ; 
state = 0; 
end 
default: ; 
endcase 
end 
end 
endmodule 
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